home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconal2a / helpform.frm < prev    next >
Text File  |  1999-10-12  |  2KB  |  82 lines
  1. VERSION 5.00
  2. Begin VB.Form HelpForm 
  3.    BackColor       =   &H8000000A&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Helpfile"
  6.    ClientHeight    =   6915
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   8010
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   6915
  14.    ScaleWidth      =   8010
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.TextBox Text1 
  18.       BackColor       =   &H00C0C0C0&
  19.       BeginProperty Font 
  20.          Name            =   "MS Sans Serif"
  21.          Size            =   9.75
  22.          Charset         =   0
  23.          Weight          =   700
  24.          Underline       =   0   'False
  25.          Italic          =   0   'False
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       ForeColor       =   &H00800080&
  29.       Height          =   6540
  30.       Left            =   45
  31.       MultiLine       =   -1  'True
  32.       ScrollBars      =   2  'Vertical
  33.       TabIndex        =   0
  34.       Text            =   "HelpForm.frx":0000
  35.       Top             =   360
  36.       Width           =   7935
  37.    End
  38.    Begin VB.PictureBox Picture1 
  39.       BackColor       =   &H00C0C0C0&
  40.       BorderStyle     =   0  'None
  41.       Height          =   240
  42.       Left            =   6660
  43.       ScaleHeight     =   240
  44.       ScaleWidth      =   330
  45.       TabIndex        =   1
  46.       Top             =   45
  47.       Width           =   330
  48.    End
  49.    Begin VB.Label Label1 
  50.       Caption         =   "IconAlbumDeluxe"
  51.       BeginProperty Font 
  52.          Name            =   "MS Sans Serif"
  53.          Size            =   9.75
  54.          Charset         =   0
  55.          Weight          =   700
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       ForeColor       =   &H00800000&
  61.       Height          =   285
  62.       Left            =   90
  63.       TabIndex        =   2
  64.       Top             =   45
  65.       Width           =   3210
  66.    End
  67. End
  68. Attribute VB_Name = "HelpForm"
  69. Attribute VB_GlobalNameSpace = False
  70. Attribute VB_Creatable = False
  71. Attribute VB_PredeclaredId = True
  72. Attribute VB_Exposed = False
  73. Private Sub Form_Load()
  74. Open IBpath + "\helpfile.txt" For Input As #1
  75. HelpForm.Text1.Text = Input(LOF(1), 1)
  76. Close #1
  77. End Sub
  78.  
  79. Private Sub Text1_GotFocus()
  80. Picture1.SetFocus
  81. End Sub
  82.